home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zl.d64 / prc.select'grad < prev    next >
Text File  |  2007-03-01  |  896b  |  27 lines
  1. 0010 ╨╥╧├ SELECT'AXIS'GRAD'INTERVAL(RANGE,NUM'INTERVALS,╥┼╞ INTERVAL) ├╠╧╙┼─
  2. 0020   //DETERMINES THE INTERVAL FOR THE GRADUATIONS ON THE AXIS OF A GRAPH WHEN
  3. 0030   //GIVEN THE REQUIRED RANGE AND THE NUMBER OF INTERVALS WANTED.
  4. 0040   //╘HE INTERVALS ARE CHOSEN FROM 1, 2, 5 OR MULTIPLES OF 10 OF THESE.
  5. 0050   
  6. 0060   ─╔═ PREFERED'INTERVAL(3)
  7. 0070   PREFERED'INTERVAL(1):=1
  8. 0080   PREFERED'INTERVAL(2):=2
  9. 0090   PREFERED'INTERVAL(3):=5
  10. 0100   
  11. 0110   NOM'INTERVAL:=RANGE/NUM'INTERVALS
  12. 0120   POWER:=╔╬╘(LOG10(NOM'INTERVAL))
  13. 0130   FACTOR:=10^POWER
  14. 0140   TEST:=NOM'INTERVAL-PREFERED'INTERVAL(3)*FACTOR
  15. 0150   ╔╞ TEST>0 ╘╚┼╬ FACTOR:=FACTOR*10
  16. 0160   I:=1
  17. 0170   ╥┼╨┼┴╘ 
  18. 0180     INTERVAL:=PREFERED'INTERVAL(I)*FACTOR
  19. 0190     I:+1
  20. 0200   ╒╬╘╔╠ INTERVAL>=NOM'INTERVAL
  21. 0210   
  22. 0220   ╞╒╬├ LOG10(X) 
  23. 0230     ╥┼╘╒╥╬ ╠╧╟(X)/╠╧╟(10)
  24. 0240   ┼╬─╞╒╬├ LOG10
  25. 0250   
  26. 0260 ┼╬─╨╥╧├ SELECT'AXIS'GRAD'INTERVAL
  27.